Sub 파일열고닫기()

    Dim 경로 As String
    Dim 파일 As String
    
    경로 = "C:\예제\Part 03\Chapter 09\"
    파일 = "파일.xlsx"
    
    Workbooks.Open Filename:=경로 & 파일
    
        Application.Wait Now + TimeSerial(0, 0, 1)
    
    ActiveWorkbook.Close SaveChanges:=False

End Sub